home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 25
/
Mac Magazin and MacEasy Magazine CD - Issue 25.iso
/
Grafik & Text
/
Alpha
/
Tcl
/
Modes
/
pascalMode.tcl
< prev
next >
Wrap
Text File
|
1996-08-15
|
1KB
|
37 lines
if {$startingUp} {
#================================================================================
addMode Pasc dummyPascal {*.p } { thinkRefMenu toolboxRefMenu}
return
}
newModeVar Pasc leftFillColumn {3} 0
newModeVar Pasc electricSemi {1} 1
newModeVar Pasc wordBreak {\w+} 0
newModeVar Pasc wordWrap {0} 1
newModeVar Pasc funcExpr {^[^ \t\(#\r/@].*\(.*\)$} 0
newModeVar Pasc wordBreakPreface {\W} 0
newModeVar Pasc electricTab {0} 1
newModeVar Pasc autoMark 0 1
set pascCommentRegexp {/\*(([^*]/)|[^*]|\r)*\*/}
set pascPreRegexp {^\#[\t ]*[a-z]*}
set pascKeyWords {
procedure function integer while with return var const unit type interface
packed record begin end boolean if else repeat for downto case to of mod
goto file do then program or label div until set not in forward and
implementation unit
}
regModeKeywords -b \{ \} -c red -k blue Pasc $pascKeyWords
unset pascKeyWords
#================================================================================
proc dummyPascal {} {}
proc PascMarkFile {} {
message "Not yet (someone write me)"
}